﻿Public Class IssizlikMeslekTurleri
    Inherits ProcessDialog

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        'Select Case e.EventType
        '    Case EventType.Initialize
		'        Text ="Meslek Türleri"
        '        AddList("Meslek Türleri")
        '        List.AddColumn("ad", "Adı Soyadı", "l", "100%")
        '        List.SQL = "select kod, deger, ad from parametre where grup = 'Meslek'"
        '        SetSize(600, 400)
        '    Case EventType.Restart
        '        List.Populate()
        '        Help = "Ekle, Sil ve Düzelt butonlarıyla listeyi düzenleyebilirsiniz."
        '        Buttons.Show("Add.Edit.Delete")
        '    Case EventType.Other
        '        Select Case e.Name
        '            Case "Add"
        '                Dim YeniDeger As String = InputBox("Yeni Meslek Adı", "Yeni Meslek", "")
        '                If YeniDeger = "" Then Exit Sub
        '                Parent.Save("parametre", "grup,deger,ad", "Meslek", Parent.OpenSQL("select isnull(max(convert(int,Deger)),0)+1 from Parametre where Grup = 'Meslek'")(0), YeniDeger)
        '                List.Populate()
        '            Case "Edit"
        '                If List.NoSelection Then Exit Sub
        '                Dim YeniDeger As String = InputBox("Meslek Adı", "Meslek Değişiklik", List.SelectedRow("ad"))
        '                If YeniDeger = "" Then Exit Sub
        '                If YeniDeger = List.SelectedRow("ad") Then Exit Sub
        '                Parent.ExecSQL("update parametre set ad = :~ad where kod = :kod", YeniDeger, List.SelectedRow("kod"))
        '                List.Populate()
        '            Case "Delete"
        '                If List.NoSelection Then Exit Sub
        '                If Not Confirm("Bu kaydı silmek istediğinizden emin misiniz?") Then Exit Sub
        '                Parent.ExecSQL("delete from parametre where kod = :kod", List.SelectedRow("kod"))
        '                List.Populate()
        '        End Select
        'End Select
    End Sub

End Class